home *** CD-ROM | disk | FTP | other *** search
/ New Star Software Collection / NSS_Collection.iso / 3-004 ms visual basic pro 30 / 3.imz / 3.IMA / MAILOPTF.FR_ / MAILOPTF.bin
Text File  |  1993-04-28  |  8KB  |  250 lines
  1. VERSION 2.00
  2. Begin Form MailOptFrm 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "Mail Options"
  5.    ClientHeight    =   3195
  6.    ClientLeft      =   1620
  7.    ClientTop       =   1860
  8.    ClientWidth     =   7500
  9.    Height          =   3600
  10.    Left            =   1560
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   3195
  13.    ScaleWidth      =   7500
  14.    Top             =   1515
  15.    Width           =   7620
  16.    Begin PictureBox MessageOption 
  17.       BorderStyle     =   0  'None
  18.       Enabled         =   0   'False
  19.       Height          =   555
  20.       Left            =   3720
  21.       ScaleHeight     =   555
  22.       ScaleWidth      =   3735
  23.       TabIndex        =   12
  24.       TabStop         =   0   'False
  25.       Top             =   0
  26.       Visible         =   0   'False
  27.       Width           =   3735
  28.       Begin CheckBox retRecip 
  29.          Caption         =   "&Return Recipt"
  30.          FontBold        =   -1  'True
  31.          FontItalic      =   0   'False
  32.          FontName        =   "System"
  33.          FontSize        =   9.75
  34.          FontStrikethru  =   0   'False
  35.          FontUnderline   =   0   'False
  36.          Height          =   375
  37.          Left            =   960
  38.          TabIndex        =   8
  39.          Top             =   120
  40.          Width           =   1815
  41.       End
  42.    End
  43.    Begin PictureBox GeneralOption 
  44.       BorderStyle     =   0  'None
  45.       Enabled         =   0   'False
  46.       Height          =   2535
  47.       Left            =   0
  48.       ScaleHeight     =   2535
  49.       ScaleWidth      =   3675
  50.       TabIndex        =   11
  51.       TabStop         =   0   'False
  52.       Top             =   0
  53.       Visible         =   0   'False
  54.       Width           =   3675
  55.       Begin CheckBox DownLoad 
  56.          Caption         =   "&Down Load Mail"
  57.          FontBold        =   -1  'True
  58.          FontItalic      =   0   'False
  59.          FontName        =   "System"
  60.          FontSize        =   9.75
  61.          FontStrikethru  =   0   'False
  62.          FontUnderline   =   0   'False
  63.          Height          =   255
  64.          Left            =   120
  65.          TabIndex        =   1
  66.          Top             =   480
  67.          Width           =   3315
  68.       End
  69.       Begin CheckBox NewSess 
  70.          Caption         =   "&New Session"
  71.          FontBold        =   -1  'True
  72.          FontItalic      =   0   'False
  73.          FontName        =   "System"
  74.          FontSize        =   9.75
  75.          FontStrikethru  =   0   'False
  76.          FontUnderline   =   0   'False
  77.          Height          =   255
  78.          Left            =   120
  79.          TabIndex        =   2
  80.          Top             =   840
  81.          Width           =   3195
  82.       End
  83.       Begin CheckBox LogonUI 
  84.          Caption         =   "&Logon UI"
  85.          FontBold        =   -1  'True
  86.          FontItalic      =   0   'False
  87.          FontName        =   "System"
  88.          FontSize        =   9.75
  89.          FontStrikethru  =   0   'False
  90.          FontUnderline   =   0   'False
  91.          Height          =   315
  92.          Left            =   120
  93.          TabIndex        =   3
  94.          Top             =   1200
  95.          Width           =   3135
  96.       End
  97.       Begin TextBox UserName 
  98.          FontBold        =   -1  'True
  99.          FontItalic      =   0   'False
  100.          FontName        =   "System"
  101.          FontSize        =   9.75
  102.          FontStrikethru  =   0   'False
  103.          FontUnderline   =   0   'False
  104.          Height          =   360
  105.          Left            =   1380
  106.          TabIndex        =   5
  107.          Top             =   1620
  108.          Width           =   2115
  109.       End
  110.       Begin TextBox MailPassWord 
  111.          FontBold        =   -1  'True
  112.          FontItalic      =   0   'False
  113.          FontName        =   "System"
  114.          FontSize        =   9.75
  115.          FontStrikethru  =   0   'False
  116.          FontUnderline   =   0   'False
  117.          Height          =   360
  118.          Left            =   1380
  119.          PasswordChar    =   "*"
  120.          TabIndex        =   7
  121.          Top             =   2040
  122.          Width           =   2115
  123.       End
  124.       Begin CheckBox SendMapiDLG 
  125.          Caption         =   "&Send w/ MAPI Dialogs"
  126.          FontBold        =   -1  'True
  127.          FontItalic      =   0   'False
  128.          FontName        =   "System"
  129.          FontSize        =   9.75
  130.          FontStrikethru  =   0   'False
  131.          FontUnderline   =   0   'False
  132.          Height          =   315
  133.          Left            =   120
  134.          TabIndex        =   0
  135.          Top             =   60
  136.          Width           =   3255
  137.       End
  138.       Begin Label Label1 
  139.          AutoSize        =   -1  'True
  140.          BackStyle       =   0  'Transparent
  141.          Caption         =   "&User Name:"
  142.          FontBold        =   -1  'True
  143.          FontItalic      =   0   'False
  144.          FontName        =   "System"
  145.          FontSize        =   9.75
  146.          FontStrikethru  =   0   'False
  147.          FontUnderline   =   0   'False
  148.          Height          =   240
  149.          Left            =   120
  150.          TabIndex        =   4
  151.          Top             =   1740
  152.          Width           =   1155
  153.       End
  154.       Begin Label Label2 
  155.          AutoSize        =   -1  'True
  156.          BackStyle       =   0  'Transparent
  157.          Caption         =   "&Password:"
  158.          FontBold        =   -1  'True
  159.          FontItalic      =   0   'False
  160.          FontName        =   "System"
  161.          FontSize        =   9.75
  162.          FontStrikethru  =   0   'False
  163.          FontUnderline   =   0   'False
  164.          Height          =   240
  165.          Left            =   240
  166.          TabIndex        =   6
  167.          Top             =   2160
  168.          Width           =   1020
  169.       End
  170.    End
  171.    Begin CommandButton CancelBt 
  172.       Cancel          =   -1  'True
  173.       Caption         =   "Cancel"
  174.       Height          =   375
  175.       Left            =   1980
  176.       TabIndex        =   10
  177.       Top             =   2640
  178.       Width           =   1035
  179.    End
  180.    Begin CommandButton OkBt 
  181.       Caption         =   "Ok"
  182.       Default         =   -1  'True
  183.       Height          =   375
  184.       Left            =   720
  185.       TabIndex        =   9
  186.       Top             =   2640
  187.       Width           =   1035
  188.    End
  189. End
  190. Sub CancelBt_Click ()
  191. '--- Unload the current form, save no changes
  192.     Unload Me
  193. End Sub
  194.  
  195. Sub Form_Load ()
  196. '------------------------------------------------------
  197. ' Setup initial values for the checkboxes/edit fields
  198. '------------------------------------------------------
  199.     UserName = VBMail.MapiSess.UserName
  200.     MailPassWord = VBMail.MapiSess.Password
  201.     NewSession = Abs(VBMail.MapiSess.NewSession)
  202.     LogonUI = Abs(VBMail.MapiSess.LogonUI)
  203.     DownloadMail = Abs(VBMail.MapiSess.DownloadMail)
  204.     SendMapiDLG = Abs(SendWithMapi)
  205.     RetRecip = Abs(ReturnRequest)
  206.     Select Case OptionType
  207.         Case Option_Message
  208.             Call SetupOptionForm(MessageOption)
  209.         Case Option_General
  210.             Call SetupOptionForm(GeneralOption)
  211.     End Select
  212. End Sub
  213.  
  214. Sub Form_Unload (Cancel As Integer)
  215.     Select Case OptionType
  216.         Case Option_Message
  217.             Call SetupOptionForm(MessageOption)
  218.         Case Option_General
  219.             Call SetupOptionForm(GeneralOption)
  220.     End Select
  221. End Sub
  222.  
  223. Sub OkBt_Click ()
  224. '------------------------------------------------------
  225. ' Save the user's changes
  226. '
  227. ' Feature Addition: Save values to an INI File
  228. '------------------------------------------------------
  229.     VBMail.MapiSess.UserName = UserName
  230.     VBMail.MapiSess.Password = MailPassWord
  231.     VBMail.MapiSess.NewSession = NewSession
  232.     VBMail.MapiSess.LogonUI = LogonUI
  233.     VBMail.MapiSess.DownloadMail = DownloadMail
  234.     SendWithMapi = SendMapiDLG
  235.     ReturnRequest = RetRecip
  236.     Unload Me
  237. End Sub
  238.  
  239. Sub SetupOptionForm (BasePic As Control)
  240.     BasePic.Top = 0
  241.     BasePic.Left = 0
  242.     BasePic.Visible = True
  243.     BasePic.Enabled = True
  244.     OkBt.Top = BasePic.Height + 120
  245.     CancelBt.Top = BasePic.Height + 120
  246.     Me.Width = BasePic.Width + 120
  247.     Me.Height = OkBt.Top + OkBt.Height + 495
  248. End Sub
  249.  
  250.